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rkr(new)(i) = rkr(old) [(KRFTP- 1)/KRFTP] + ikr(i)/KRFPT « — SCH1 
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rkr(new)(i) = rkr(old)(i) minus , 
(average grad - GRADLIMIT2)*dt 



SCH11 
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'grad(i) > ; 
Average grad minus* 1 
. GRADLIMIT3 



rkr(new)(i) = rkr(old)(i) plus 
(average grad + GRADLIMIT4)*dt 
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rkr (old)(i) = rkr (new)^ 
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